home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / gjr / cmplrtst.lha / link.scm < prev    next >
Encoding:
Text File  |  1990-03-27  |  525 b   |  24 lines
  1. ;;; -*- Scheme -*-
  2.  
  3. #|
  4. Description:
  5. This code tests uuo links.
  6.  
  7. Usage:
  8. (foo 2) -> unbound variable {one of bar baz quux gack mumble grumble}
  9. (define bar identity-procedure)
  10. (define baz identity-procedure)
  11. (define quux identity-procedure)
  12. (define mumble identity-procedure)
  13. (define grumble identity-procedure)
  14. (foo 2) -> unbound variable gack
  15. (define gack identity-procedure)
  16. (foo 2) -> 4
  17. |#
  18.  
  19. (declare (usual-integrations))
  20.  
  21. (define (foo x)
  22.   (+ (* (bar x) (baz x))
  23.      (- (* (quux x) (gack x))
  24.     (* (mumble x) (grumble x)))))